home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / misc / tri14dev.lha / Triton / Developer / M2Amiga / TritonD.def < prev    next >
Text File  |  1995-08-25  |  32KB  |  500 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.    
  3.  | $VER: TritonD.def 1.10 (02.06.94) by Stefan Schulz [sts]
  4.  
  5.  | Desc: Interface to Triton.library, Definition Part
  6.  
  7.  | Dist: This Module is © Copyright 1994 by Stefan Schulz
  8.  |       It may be freely Distributed (Freeware)
  9.  
  10.  | Rqrs: triton.library V1.1
  11.  |       Triton is © Copyright 1993/1994 by Stefan Zeiger
  12.  
  13.  | Lang: M2Amiga
  14.  | Trns: M2Amiga Modula 2 Software Development System
  15.  |       © Copyright by A+L AG, CH-2540 Grenchen
  16.  
  17.  | Hist: Revision 1.10 [sts] \02.06.95\\02.06.95\
  18.  |        `- Updated to Triton release 4   
  19.  
  20.  | Hist: Revision 1.01 [sts] \26.09.94\\26.09.94\
  21.  |        `- Names corrected to M2 Standard
  22.  
  23.  | Hist: Revision 1.00 [sts] \05.09.94\\06.09.94\
  24.  |        `- initial revision
  25.  
  26.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  27.  
  28. DEFINITION MODULE TritonD; (*$ Implementation:= FALSE *)
  29.  
  30. (* IMPORTS ********************************************************************** *)
  31.  
  32. IMPORT  ed      : ExecD,
  33.         gtd     : GadToolsD,
  34.         gd      : GraphicsD,
  35.         ie      : InputEvent,
  36.         ind     : IntuitionD,
  37.         S       : SYSTEM,
  38.         ud      : UtilityD,
  39.         wd      : WorkbenchD;
  40.  
  41. (* ****************************************************************************** *)
  42.  
  43. (* ------------------------------------------------------------------------------ *)
  44. (* library name and version                                                       *)
  45. (* ------------------------------------------------------------------------------ *)
  46.  
  47. CONST   tritonName      = "triton.library";
  48.         tritonVersion   = 1;
  49.  
  50. (* ------------------------------------------------------------------------------ *)
  51. (* Pointers to everything                                                         *)
  52. (* ------------------------------------------------------------------------------ *)
  53.  
  54. TYPE    AppPtr        = POINTER TO App;
  55.         DimensionsPtr = POINTER TO Dimensions;
  56.         MessagePtr    = POINTER TO Message;
  57.         ProjectPtr    = POINTER TO Project;
  58.  
  59. TYPE    (* for readability *)
  60.         StrPtr        = S.ADDRESS;
  61.         BOOL          = INTEGER;   (* has to be SIZE(WORD), so no BOOLEANs      *)
  62.  
  63. (* ------------------------------------------------------------------------------ *)
  64. (* Triton Message                                                                 *)
  65. (* ------------------------------------------------------------------------------ *)
  66.  
  67. TYPE    Message       = RECORD
  68.                         project   : ProjectPtr;   (* The project which triggered  *)
  69.                                                   (* the message                  *)
  70.                         id        : LONGCARD;     (* The object's ID              *)
  71.                         class     : LONGCARD;     (* The Triton message class     *)
  72.                         data      : LONGCARD;     (* The class-specific data      *)
  73.                         code      : LONGCARD;     (* Currently only used by       *)
  74.                                                   (* msKEYPRESSED                 *)
  75.                         pad0      : CARDINAL;       (* qualifier is only 16 Bit   *)
  76.                         qualifier : ie.QualifierSet;(* Qualifiers                 *)
  77.                         seconds   : LONGCARD;     (* \ Copy of system clock time  *)
  78.                         micros    : LONGCARD;     (* / (Only where available! If  *)
  79.                                                   (*    not set, seconds is NULL) *)
  80.                         app       : AppPtr;       (* The project's application    *)
  81.                         END; (* Message *)
  82.  
  83. CONST   (* Message Classes *)
  84.         msCloseWindow = 1;   (* The window should be closed                       *)
  85.         msError       = 2;   (* An error occured. Error code in 'data'            *)
  86.         msNewValue    = 3;   (* Object's value has changed. New value in 'data'   *)
  87.         msAction      = 4;   (* Object has triggered an action                    *)
  88.         msIconDropped = 5;   (* Icon dropped over window ('id'=0) or DropBox.     *)
  89.                              (* AppMessagePtr in 'data'                           *)
  90.         msKeyPressed  = 6;   (* Key pressed. 'data' contains ASCII code, 'code'   *)
  91.                              (* raw code and 'qualifier' contains qualifiers      *)
  92.         msHelp        = 7;   (* The user requested help for the specified ID      *)
  93.         msDiskInserted= 8;   (* A disk has been inserted into a drive             *)
  94.         msDiskRemoved = 9;   (* A disk has been removed from a drive              *)
  95.  
  96. (* ------------------------------------------------------------------------------ *)
  97. (* Triton Error Codes                                                             *)
  98. (* ------------------------------------------------------------------------------ *)
  99.  
  100. CONST   erOK                  = 0;  (* No error                                   *)
  101.  
  102.         erAllocMem            = 1;  (* Not enough memory                          *)
  103.         erOpenWindow          = 2;  (* Can't open window                          *)
  104.         erWindowTooBig        = 3;  (* Window would be too big for screen         *)
  105.         erDrawInfo            = 4;  (* Can't get screen's DrawInfo                *)
  106.         erOpenFont            = 5;  (* Can't open font                            *)
  107.         erCreateMsgPort       = 6;  (* Can't create message port                  *)
  108.         erInstallObject       = 7;  (* Can't create an object                     *)
  109.         erCreateClass         = 8;  (* Can't create a class                       *)
  110.         erNoLockPubScreen     = 9;  (* Can't lock public screen                   *)
  111.         erCreateMenus         = 12; (* Error while creating the menus             *)
  112.         erGTCreateContext     = 14; (* Can't create gadget context                *)
  113.         
  114.         erMaxErrorNum         = 15; (* PRIVATE!                                   *)
  115.  
  116. (* ------------------------------------------------------------------------------ *)
  117. (* Tags for OpenProject                                                           *)
  118. (* ------------------------------------------------------------------------------ *)
  119.  
  120. CONST   (* Window/Project *)
  121.         wiTitle               = ud.tagUser+1; (* STRPTR: The window title         *)
  122.         wiFlags               = ud.tagUser+2; (* See below for window flags       *)
  123.         wiUnderscore          = ud.tagUser+3; (* CharPtr: The underscore for      *)
  124.                                               (* menu and gadget shortcuts        *)
  125.         wiPosition            = ud.tagUser+4; (* Window position, see below       *)
  126.         wiCustomScreen        = ud.tagUser+5; (* ScreenPtr                        *)
  127.         wiPubScreen           = ud.tagUser+6; (* ScreenPtr, must have been        *)
  128.                                               (* locked!                          *)
  129.         wiPubScreenName       = ud.tagUser+7; (* StrPtr, Triton is doing the      *)
  130.                                               (* locking                          *)
  131.         wiPropFontAttr        = ud.tagUser+8; (* TextAttrPtr: proportional font   *)
  132.         wiFixedWidthFontAttr  = ud.tagUser+9; (* TextAttrPtr: fixed-width font    *)
  133.         wiBackfill            = ud.tagUser+10; (* The backfill type, see below    *)
  134.         wiID                  = ud.tagUser+11; (* LONGCARD: The window ID         *)
  135.         wiDimensions          = ud.tagUser+12; (* DimensionsPtr                   *)
  136.         wiScreenTitle         = ud.tagUser+13; (* StrPtr: The screen title        *)
  137.  
  138. CONST   (* Menus *)
  139.         mnTitle               = ud.tagUser+101; (* StrPtr: Menu                   *)
  140.         mnItem                = ud.tagUser+102; (* StrPtr: Menu item              *)
  141.         mnSub                 = ud.tagUser+103; (* StrPtr: Menu subitem           *)
  142.         mnFlags               = ud.tagUser+104; (* See below for flags            *)
  143.  
  144. CONST   (* General object attributes *)
  145.         atID                  = ud.tagUser+150; (* The object's/menu's ID         *)
  146.         atFlags               = ud.tagUser+151; (* The object's flags             *)
  147.         atValue               = ud.tagUser+152; (* The object's value             *)
  148.         atText                = ud.tagUser+153; (* The object's text              *)
  149.         atDisabled            = ud.tagUser+154; (* Disabled object?               *)
  150.         atBackfill            = ud.tagUser+155; (* Backfill pattern               *)
  151.         atMinWidth            = ud.tagUser+156; (* Minimum width                  *)
  152.         atMinHeight           = ud.tagUser+157; (* Minimum height                 *)
  153.  
  154.         obUSER                = ud.tagUser+800; (* PRIVATE!                       *)
  155.  
  156. (* ------------------------------------------------------------------------------ *)
  157. (* Window Flags                                                                   *)
  158. (* ------------------------------------------------------------------------------ *)
  159.  
  160. CONST   wfBackDrop            = 00000001H; (* Create a backdrop borderless        *)
  161.                                            (* window                              *)
  162.         wfNoDragBar           = 00000002H; (* Don't use a dragbar                 *)
  163.         wfNoDepthGadget       = 00000004H; (* Don't use a depth-gadget            *)
  164.         wfNoCloseGadget       = 00000008H; (* Don't use a close-gadget            *)
  165.         wfNoActivate          = 00000010H; (* Don't activate window               *)
  166.         wfNoEscClose          = 00000020H; (* Don't send msCloseWindow when       *)
  167.                                            (* Esc is pressed                      *)
  168.         wfNoPScrFallBack      = 00000040H; (* Don't fall back onto default        *)
  169.                                            (* PubScreen                           *)
  170.         wfNoZipGadget         = 00000080H; (* Don't use a zip-gadget              *)
  171.         wfZipCenterTop        = 00000100H; (* Center the zipped window on the     *)
  172.                                            (* title bar                           *)
  173.         wfNoMinTextWidth      = 00000200H; (* Minimum window width not according  *)
  174.                                            (* to title text                       *)
  175.         wfNoSizeGadget        = 00000400H; (* Don't use a sizing-gadget           *)
  176.         wfNoFontFallBack      = 00000800H; (* Don't fall back to topaz.8          *)
  177.         wfNoDelZip            = 00001000H; (* Don't zip the window when Del is    *)
  178.                                            (* pressed                             *)
  179.         wfSimpleRefresh       = 00002000H; (* Use simple refresh instead of       *)
  180.                                            (* smart refresh                       *)
  181.         wfZipToCurrentPos     = 00004000H; (* Will zip the window at the current  *)
  182.                                            (* position (OS3.0+)                   *)
  183.         wfAppWindow           = 00008000H; (* Create an AppWindow without using   *)
  184.                                            (* class_dropbox                       *)
  185.         wfActivateStrGad      = 00010000H; (* Activate the first string gadget    *)
  186.                                            (* after opening the window            *)
  187.         wfHelp                = 00020000H; (* Pressing <Help> will create a       *)
  188.                                            (* msHelp message                      *)
  189.  
  190. (* ------------------------------------------------------------------------------ *)
  191. (* Menu Flags                                                                     *)
  192. (* ------------------------------------------------------------------------------ *)
  193.  
  194. CONST   mfCheckIt             = 00000001H; (* Leave space for a checkmark         *)
  195.         mfCheckEd             = 00000002H; (* Check the item (includes            *)
  196.                                            (* mfCheckIt)                          *)
  197.         mfDisabled            = 00000004H; (* Ghost the menu/item                 *)
  198.  
  199.  
  200. (* ------------------------------------------------------------------------------ *)
  201. (* Window positions                                                               *)
  202. (* ------------------------------------------------------------------------------ *)
  203.  
  204. CONST   wpDefault           = 0;    (* Get Triton choose a good position          *)
  205.         wpBelowTitleBar     = 1;    (* Left side of screen, below title bar       *)
  206.         wpCenterTop         = 1025; (* Top of screen, centered on the title bar   *)
  207.         wpTopLeftScreen     = 1026; (* Top left corner of screen                  *)
  208.         wpCenterScreen      = 1027; (* Centered on the screen                     *)
  209.         wpCenterDisplay     = 1028; (* Centered on the currently displayed clip   *)
  210.         wpMousePointer      = 1029; (* Under the mouse pointer                    *)
  211.  
  212. (* ------------------------------------------------------------------------------ *)
  213. (* Backfill types                                                                 *)
  214. (* ------------------------------------------------------------------------------ *)
  215.  
  216.         bfWindowBack          = 0;  (* Window backfill colors                     *)
  217.         bfRequesterBack       = 1;  (* Requester backfill colors                  *)
  218.         bfNone                = 2;  (* No backfill (= Fill with BackgroundPen)    *)
  219.         bfShine               = 3;  (* Fill with ShinePen                         *)
  220.         bfShineShadow         = 4;  (* Fill with ShinePen + ShadowPen             *)
  221.         bfShineFill           = 5;  (* Fill with ShinePen + FillPen               *)
  222.         bfShineBackground     = 6;  (* Fill with ShinePen + BackgroundPen         *)
  223.         bfShadow              = 7;  (* Fill with ShadowPen                        *)
  224.         bfShadowFill          = 8;  (* Fill with Shadowpen + FillPen              *)
  225.         bfShadowBackground    = 9;  (* Fill with ShadowPen + BackgroundPen        *)
  226.         bfFill                = 10; (* Fill with FillPen                          *)
  227.         bfFillBackground      = 11; (* Fill with FillPen + BackgroundPen          *)
  228.  
  229. (* ------------------------------------------------------------------------------ *)
  230. (* Display Object Flags                                                           *)
  231. (* ------------------------------------------------------------------------------ *)
  232.  
  233. CONST   (* General flags *)
  234.         ofRaised      = 00000001H; (* Raised object                               *)
  235.         ofHoriz       = 00000002H; (* Horizontal object \ Works automatically     *)
  236.         ofVert        = 00000004H; (* Vertical object   / in groups               *)
  237.         ofRightAlign  = 00000008H; (* Align object to the right border if         *)
  238.                                    (* available                                   *)
  239.  
  240. CONST   (* Text flags *)
  241.         txNoUnderscore= 00000100H; (* Don't interpret underscores                 *)
  242.         txHighlight   = 00000200H; (* Highlight text                              *)
  243.         tx3D          = 00000400H; (* 3D design                                   *)
  244.         txBold        = 00000800H; (* Softstyle 'bold'                            *)
  245.         txTitle       = 00001000H; (* A title (e.g. of a group)                   *)
  246.         txSelected    = 00002000H; (* PRIVATE!                                    *)
  247.  
  248. (* ------------------------------------------------------------------------------ *)
  249. (* Menu entries                                                                   *)
  250. (* ------------------------------------------------------------------------------ *)
  251.  
  252. CONST   menuBarLabel  = -1;        (* A barlabel instead of text                  *)
  253.  
  254. (* ------------------------------------------------------------------------------ *)
  255. (* Tags for CreateApp()                                                           *)
  256. (* ------------------------------------------------------------------------------ *)
  257.  
  258. CONST   caName        = ud.tagUser+1;
  259.         caLongName    = ud.tagUser+2;
  260.         caInfo        = ud.tagUser+3;
  261.         caVersion     = ud.tagUser+4;
  262.         caRelease     = ud.tagUser+5;
  263.         caDate        = ud.tagUser+6;
  264.  
  265. (* ------------------------------------------------------------------------------ *)
  266. (* Tags for EasyRequest()                                                         *)
  267. (* ------------------------------------------------------------------------------ *)
  268.  
  269. CONST   ezReqPos      = ud.tagUser+1;
  270.         ezLockProject = ud.tagUser+2;
  271.         ezReturn      = ud.tagUser+3;
  272.         ezTitle       = ud.tagUser+4;
  273.         ezActivate    = ud.tagUser+5;
  274.  
  275. (* ------------------------------------------------------------------------------ *)
  276. (* The Application Structure                                                      *)
  277. (* ------------------------------------------------------------------------------ *)
  278.  
  279. TYPE    App           = RECORD (* This structure is PRIVATE! *)
  280.                         memPool    : S.ADDRESS;    (* The memory pool             *)
  281.                         bitMask    : LONGCARD;     (* Bits to Wait() for          *)
  282.                         lastError  : LONGCARD;     (* code of last error          *)
  283.                         name       : StrPtr;       (* Unique name                 *)
  284.                         longName   : StrPtr;       (* User-readable name          *)
  285.                         info       : StrPtr;       (* Info string                 *)
  286.                         version    : StrPtr;       (* Version                     *)
  287.                         release    : StrPtr;       (* Release                     *)
  288.                         date       : StrPtr;       (* Compilation date            *)
  289.                         appPort    : ed.MsgPortPtr;(* Application message port    *)
  290.                         idcmpPort  : ed.MsgPortPtr;(* IDCMP message port          *)
  291.                         prefs      : S.ADDRESS;    (* Pointer to Triton app prefs *)
  292.                         lastProject: ProjectPtr;   (* Used for menu item linking  *)
  293.                         inputEvent : ie.InputEventPtr; (* For RawKey conversion   *)
  294.                         END; (* App *)
  295.  
  296. (* ------------------------------------------------------------------------------ *)
  297. (* The Dimension Structure                                                        *)
  298. (* ------------------------------------------------------------------------------ *)
  299.  
  300. TYPE    Dimensions    = RECORD
  301.                         left          : CARDINAL;
  302.                         top           : CARDINAL;
  303.                         width         : CARDINAL;
  304.                         height        : CARDINAL;
  305.                         left2         : CARDINAL;
  306.                         top2          : CARDINAL;
  307.                         width2        : CARDINAL;
  308.                         height2       : CARDINAL;
  309.                         zoomed        : BOOL;
  310.                         reserved      : ARRAY [0..2] OF CARDINAL;
  311.                         END; (* Dimensions *)
  312.  
  313. (* ------------------------------------------------------------------------------ *)
  314. (* The Projects Structure                                                         *)
  315. (* ------------------------------------------------------------------------------ *)
  316.  
  317. TYPE    Project       = RECORD (* This structure is PRIVATE! *)
  318.                         app           : AppPtr;       (* Our application          *)
  319.                         screen        : ind.ScreenPtr;(* Our screen, always valid *)
  320.  
  321.                         lockedPubScreen:ind.ScreenPtr;(* Only valid if we're using*)
  322.                                                       (* a PubScreen              *)
  323.                         screenTitle   : StrPtr;       (* The screen title         *)
  324.                          
  325.                         window        : ind.Window;     (* The window             *)
  326.                         id            : LONGCARD;       (* The window ID          *)
  327.                         appWindow     : wd.AppWindowPtr;(* AppWindow for icon     *)
  328.                                                         (* dropping               *)
  329.                         
  330.                         idcmpFlags    : LONGCARD;       (* The IDCMP flags        *)
  331.                         flags         : LONGCARD;       (* Triton window flags    *)
  332.                         
  333.                         newMenu       : gtd.NewMenuPtr; (* The newmenu stucture   *)
  334.                                                         (* built by Triton        *)
  335.                         newMenuSize   : LONGCARD;       (* The number of menu     *)
  336.                                                         (* items in the list      *)
  337.                         menu          : ind.MenuPtr;    (* The menu structure     *)
  338.                         nextSelect    : LONGCARD;       (* The next selected menu *)
  339.                                                         (* item                   *)
  340.                         
  341.                         visualInfo    : S.ADDRESS;      (* The VisualInfo of our  *)
  342.                                                         (* window                 *)
  343.                         drawInfo      : ind.DrawInfoPtr;(* DrawInfo of the screen *)
  344.                         userDimensions: DimensionsPtr;  (* supplied dimensions    *)
  345.                         dimensions    : DimensionsPtr;  (* Private dimensions     *)
  346.                         
  347.                         windowStdHeight:LONGCARD; (* standard height of the window*)
  348.                         leftBorder    : LONGCARD; (* left window border width     *)
  349.                         rightBorder   : LONGCARD; (* right window border width    *)
  350.                         topBorder     : LONGCARD; (* top window border height     *)
  351.                         bottomBorder  : LONGCARD; (* bottom window border height  *)
  352.                         innerWidth    : LONGCARD; (* inner width of the window    *)
  353.                         innerHeight   : LONGCARD; (* inner height of the window   *)
  354.                         zipDimensions : ARRAY [0..3] OF INTEGER; (* The dimensions*)
  355.                                                   (* for the zipped window        *)
  356.                         aspectFixing  : CARDINAL; (*Pixel aspect correction factor*)
  357.                         
  358.                         objectList    : ed.MinList; (* The list of display objects*)
  359.                         menuList      : ed.MinList; (* The list of menus          *)
  360.                         idList        : ed.MinList; (* The ID linking list        *)
  361.                                                     (* (menus & objects)          *)
  362.                         memPool       : S.ADDRESS;  (* memory pool for the lists  *)
  363.                         hasObjects    : BOOL;       (* Do we have display objects?*)
  364.                         
  365.                         propAttr      : gd.TextAttrPtr; (* The proportional font  *)
  366.                                                         (* attributes             *)
  367.                         fixedWidthAttr: gd.TextAttrPtr; (* The fixed-width font   *)
  368.                                                         (* attributes             *)
  369.                         propFont      : gd.TextFontPtr; (* The proportional font  *)
  370.                         fixedWidthFont: gd.TextFontPtr; (* The fixed-width font   *)
  371.                         openedPropFont: BOOL;           (* Have we opened the     *)
  372.                         openedFixedWidthFont: BOOL;     (* fonts ?                *)
  373.                         totalPropFontHeight : CARDINAL; (* Height of prop font    *)
  374.                                                         (* incl. underscore       *)
  375.  
  376.                         backfillType  : LONGCARD;       (* The backfill type      *)
  377.                         backfillHook  : ud.HookPtr;     (* The backfill hook      *)
  378.                         
  379.                         gadToolsGadgetList: ind.GadgetPtr;(* List of GadTools     *)
  380.                                                           (* gadgets              *)
  381.                         prevGadget    : ind.GadgetPtr;    (* Previous gadget      *)
  382.                         newGadget     : gtd.NewGadgetPtr; (* GadTools NewGadget   *)
  383.                         
  384.                         invisibleRequest: ind.RequesterPtr; (* The invisible      *)
  385.                                                         (* blocking requester     *)
  386.                         isUserLocked  : BOOL;           (* Project locked by the  *)
  387.                                                         (* user?                  *)
  388.                         
  389.                         currentID     : LONGCARD;(* currently keyboard-selected ID*)
  390.                         isCancelDown  : BOOL;    (* Cancellation key pressed?     *)
  391.                         isShortcutDown: BOOL;    (* Shortcut key pressed?         *)
  392.                         underscore    : CHAR;    (* The underscore character      *)
  393.                         
  394.                         escClose      : BOOL;    (* Close window on Esc ?         *)
  395.                         delZip        : BOOL;    (* Zip window on Del ?           *)
  396.                         pubScreenFallBack: BOOL; (* Fall back onto default public *)
  397.                                                  (* screen ?                      *)
  398.                         fontFallBack  : BOOL;    (* Fall back to topaz.8 ?        *)
  399.  
  400.                         oldWidth      : CARDINAL;(* Old window width              *)
  401.                         oldHeight     : CARDINAL;(* Old window height             *)
  402.  
  403.                         END; (* Projects *)
  404.  
  405. (* ------------------------------------------------------------------------------ *)
  406. (* Default classes, attributes and flags                                          *)
  407. (* ------------------------------------------------------------------------------ *)
  408.  
  409. CONST   (* Object-Classes *)
  410.  
  411.         obButton       = ud.tagUser+305; (* A BOOPSI button gadget                *)
  412.         obCheckBox     = ud.tagUser+303; (* A checkbox gadget                     *)
  413.         obCycle        = ud.tagUser+310; (* A cycle gadget                        *)
  414.         obFrameBox     = ud.tagUser+306; (* A framing box                         *)
  415.         obDropBox      = ud.tagUser+312; (* An icon drop box                      *)
  416.         grHoriz        = ud.tagUser+201; (* Horizontal group,see below for types  *)
  417.         grVert         = ud.tagUser+202; (* Vertical group, see below for types   *)
  418.         grEnd          = ud.tagUser+203; (* End of a group                        *)
  419.         obLine         = ud.tagUser+301; (* A simple line                         *)
  420.         obPalette      = ud.tagUser+307; (* A palette gadget                      *)
  421.         obScroller     = ud.tagUser+309; (* A scroller gadget                     *)
  422.         obSlider       = ud.tagUser+308; (* A slider gadget                       *)
  423.         obSpace        = ud.tagUser+901; (* The spaces class                      *)
  424.         obString       = ud.tagUser+311; (* A string gadget                       *)
  425.         obText         = ud.tagUser+304; (* A line of text                        *)
  426.         obListview     = ud.tagUser+313; (* A listview gadget                     *)
  427.         obProgress     = ud.tagUser+314; (* A progress indicator                  *)
  428.         obImage        = ud.tagUser+315; (* An image                              *)
  429.  
  430. CONST   (* Button *)
  431.         buReturnOK     = 00010000H;   (* <Return> answers the button              *)
  432.         buEscOK        = 00020000H;   (* <Esc> answers the button                 *)
  433.         buShifted      = 00040000H;   (* Shifted shortcut only                    *)
  434.         buUnshifted    = 00080000H;   (* Unshifted shortcut only                  *)
  435.         buYResize      = 00100000H;   (* Button resizeable in Y direction         *)
  436.         btText         = 0;           (* Text button                              *)
  437.         btGetFile      = 1;           (* GetFile button                           *)
  438.         btGetDrawer    = 2;           (* GetDrawer button                         *)
  439.         btGetEntry     = 3;           (* GetEntry button                          *)
  440.  
  441. CONST   (* Group *)
  442.         grPropShare    = 00000000H;   (* Default: Divide objects proportionally   *)
  443.         grEqualShare   = 00000001H;   (* Divide objects equally                   *)
  444.         grPropSpaces   = 00000002H;   (* Divide spaces proportionally             *)
  445.         grArray        = 00000004H;   (* Top-level array group                    *)
  446.  
  447.         grAlign        = 00000008H;   (* Align resizeable objects in secondary    *)
  448.                                       (* dimension                                *)
  449.         grCenter       = 00000010H;   (* Center unresizeable objects in           *)
  450.                                       (* secondary dimension                      *)
  451.  
  452.         grFixHoriz     = 00000020H;   (* Don't allow horizontal resizing          *)
  453.         grFixVert      = 00000040H;   (* Don't allow vertical resizing            *)
  454.         grIndep        = 00000080H;   (* Group is independant of surrounding      *)
  455.                                       (* array                                    *)
  456.  
  457. CONST   (* Framebox *)
  458.         fbGrouping     = 00000001H;   (* A grouping box                           *)
  459.         fbFraming      = 00000002H;   (* A framing box                            *)
  460.         fbText         = 00000004H;   (* A text container                         *)
  461.  
  462. CONST   (* Scroller *)
  463.         scTotal        = ud.tagUser+1504;
  464.         scVisible      = ud.tagUser+1505;
  465.  
  466. CONST   (* Slider *)
  467.         slMin          = ud.tagUser+1502;
  468.         slMax          = ud.tagUser+1503;
  469.  
  470. CONST   (* Space *)
  471.         stFree         = NIL;
  472.         stNone         = 1;         (* No space                                   *)
  473.         stSmall        = 2;         (* Small space                                *)
  474.         stNormal       = 3;         (* Normal space (default)                     *)
  475.         stBig          = 4;         (* Big space                                  *)
  476.  
  477. CONST   (* Listview *)
  478.         lvTop          = ud.tagUser+1506;
  479.         lvReadOnly     = 00010000H; (* A read-only list                           *)
  480.         lvSelect       = 00020000H; (* You may select an entry                    *)
  481.         lvShowSelected = 00040000H; (* Selected entry will be shown               *)
  482.         lvNoCursorKeys = 00080000H; (* Don't use arrow keys                       *)
  483.         lvNoNumpadKeys = 00100000H; (* Don't use numeric keypad keys              *)
  484.         lvFWFont       = 00200000H; (* Use the fixed-width font                   *)
  485.         lvNoGap        = 00400000H; (* Don't leave a gap below the list           *)
  486.  
  487. CONST   (* Image *)
  488.         imBoopsi       = 00010000H; (* Use a BOOPSI IClass image                  *)
  489.  
  490. CONST   (* Cycle *)
  491.         cyMX           = 00010000H; (* Unfold the cycle gadget to a MX gadget     *)
  492.         cyRightLabels  = 00020000H; (* Put labels to the right of a MX gadget     *)
  493.  
  494. CONST   (* String *)
  495.         stInvisible         = 00010000H; (* A password gadget -> invisible typing *)
  496.         stNoReturnBroadcast = 00020000H; (* <Return> keys will not be broadcast   *)
  497.                                          (* to the window                         *)
  498.  
  499. END TritonD.def
  500.